Skunkware 98/Skunkware 98.iso/osr5/sco/scripts/admin/kvar

Korn shell script | 1997-08-26 | 5.2 KB | 222 lines

#!/bin/ksh
# @(#) kvar.ksh 2.1 96/09/07
# 94/05/14 john h. dubois iii
# 94/06/13 Check for bad symbol name.
# 96/01/21 5.0 port.  New crash has different behaviour if input is not a tty
#          and different error messages.
# 96/02/02 Print warnings & read again.  Check values.
# 96/04/23 Added tnmdrsRS options; changed old s option to V.
# 96/09/07 Added bOXDT options.

name=${0##*/}
Usage=\
"Usage: $name [-hnxOXDT] [-t<string>] [-s<seconds>] [-r<num>] [-m<mult>]
            [-d<div>] [-b<base>] [-RSV|var-name ...]"
list=
Tabstring="\n"
typeset -i Mult=1 Div=1 Repeat=0 Seconds=0
PrintNames=true
radix=10
printFlag=d
seg=

while getopts :hnxm:d:RSVt:r:s:b:OXDT opt; do
    case $opt in
    h)
    echo \
"$name: print the value of kernel integer variables.
$Usage
Options:
-b<base>: Print values using radix <base>, which must be a number in the range
    2 through 36.  The default is 10.
-X: Print values as unsigned hexadecimal values.  Cannot be used with -m or -d.
-O: Print values as unsigned octal values.  Cannot be used with -m or -d.
-D: Print the data symbols nearest to values.
-T: Print the text symbols nearest to values.
-m<mult>: Multiply values by integer value <mult> before printing them.
-d<div>: Divide values by integer value <div> before printing them.
    Values for -m and -d may be given in ksh form (base#value).
-h: Print this help.
-n: Do not print variable names.
-t<string>: Separate each variable display with <string> instead of a newline.
-s<seconds>: Print values every <seconds> seconds.  If -r is not also given,
    values are printed until $name is interrupted.
-r<num>: Print values <num> times.  If -s is not also given, they are printed
    about once per second.
    -r and -s require the \"timer\" utility to be available in the search path.
-x: Turn on debugging.
-R: Print freemem as a value in kilobytes.
-S: Print freeswap as a value in kilobytes.
-V: Print availsmem as a value in kilobytes."
    exit 0
    ;;
    [RSV])
    case $opt in
        R) list="$list freemem";;
        S) list="$list freeswap";;
        V) list="$list availsmem";;
    esac
    Mult=4
    Div=1
    ;;
    b)
    radix=$OPTARG
    if [[ "$OPTARG" != +([0-9]) || "$OPTARG" -lt 2 || "$OPTARG" -gt 36 ]]
    then
        print -ru2 "Bad radix: $radix"
        exit 1
    fi
    ;;
    t)
    Tabstring=$OPTARG
    ;;
    x)    set -x;;
    n)  PrintNames=false;;
    r)
    Repeat=$OPTARG || exit 1
    if [ Repeat -le 0 ]; then
        print -u2 "Must give a positive integer value with $opt."
        exit 1
    fi
    ;;
    s)
    Seconds=$OPTARG || exit 1
    if [ Seconds -le 0 ]; then
        print -u2 "Must give a positive integer value with $opt."
        exit 1
    fi
    ;;
    m)
    Mult=$OPTARG || exit 1
    ;;
    d)
    Div=$OPTARG || exit 1
    if ! ((Div)); then
        print -u2 "Cannot divide by zero."
        exit 1
    fi
    ;;
    O)
    printFlag=o
    ;;
    X)
    printFlag=x
    ;;
    D)
    seg=ds
    printFlag=x
    ;;
    T)
    seg=ts
    printFlag=x
    ;;
    +?)
    print -u2 "$name: options should not be preceded by a '+'."
    exit 1
    ;;
    :)
        print -r -u2 -- \
        "$name: Option '$OPTARG' requires a value.  Use -h for help."
        exit 1
        ;;
    ?)
    print -u2 "$name: $OPTARG: bad option.  Use -h for help."
    exit 1
    ;;
    esac
done

# remove args that were options
let OPTIND=OPTIND-1
shift $OPTIND

if [ $# -lt 1 -a -z "$list" ]; then
    print -u2 "$Usage\nUse -h for help."
    exit
fi

if [ ! -r /dev/mem ]; then
    print -u2 "Cannot open /dev/mem."
    exit 1
fi

function GetValues {
    typeset -L17 pvar
    typeset value
    typeset DoTab=false
    typeset var line sign= pt
    if [ radix -eq 10 ]; then
    typeset out=
    else
    typeset -i$radix out
    fi


    for var in $list $*; do
    if $DoTab; then
        print -n "$Tabstring"
    else
        DoTab=true
    fi
    print -rp od -$printFlag $var
    read -p line
    # Get rid of header.  Must do it here rather than immediately after
    # starting coprocess because new crash does not print the header until
    # the first line of other output.
    [[ "$line" = dumpfile* ]] && read -p line
    if [[ "$line" = Warning* ]]; then
        print -ru2 -- "$line"
        read -p line
    fi
    if [[ "$line" = *@(not found in symbol table|is an unknown symbol)* ]]
    then
        print -ru2 "$var: No such symbol."
        continue
    fi
    set -- $line
    # Old crash will have a prompt as field 1; new one does not,
    # so do a shift to make the value be in a known place.
    shift $(($#-1))
    if [[ "$1" != +([-0-9a-f]) ]]; then
        print -ru2 "Error getting value of $var:
>> $line"
        continue
    fi
    value=$1
    pvar=$var:
    $PrintNames && print -rn -- "$pvar "
    if [ -n "$seg" ]; then
        print -rp "$seg $value"
        read -p line
        print -nr -- "$line"
    else
        if [ Mult -ne 1 -o Div -ne 1 ]; then
        out=$((value*Mult/Div))
        else
        out=$value
        fi
        if [[ "$out" = -* ]]; then    # deal with sign separately
        sign=-
        out=${out#-}
        fi
        pt=${out#*#}    # get rid of base spec if any
        pt=${pt##+(0)}    # get rid fo leading 0s
        print -n -- $sign$pt
    fi
    done
    print ""
}

crash |&
if [ Repeat -gt 1 -o Seconds -ne 0 ]; then
    # Subtract 1 from Repeat because one instance will be done initially.
    ((Repeat)) && rOpt=-r$((Repeat-1)) || rOpt=
    ((Seconds)) || Seconds=1
    # Use timer instead of sleeps to keep the system as quiescent as possible.
    timer -i $rOpt ${Seconds}s | while read; do
    GetValues "$@"
    done
else
    GetValues "$@"
fi